home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 February / NetCD2.iso / Patch / age / age2cpfix.exe / data / GAMEDATA.DRS / Unnamed File 000037.bina < prev    next >
Encoding:
Text File  |  1999-11-11  |  3.0 KB  |  128 lines
  1. #load-if-not-defined VICTORY-CONQUEST
  2.  
  3. (defrule
  4.     (goal personality 1)
  5.     (not (goal wonder-attempt NO) )
  6. =>
  7.     (set-goal wonder-attempt NO)
  8. )
  9.  
  10. (defrule
  11.     (goal wonder-attempt MAYBE)
  12.     (taunt-detected any-ally 200)
  13. =>
  14.     (set-goal wonder-attempt NO)
  15.     (set-goal upgrade-conflict NO)
  16.     (acknowledge-taunt this-any-ally 200)
  17.     (disable-self)
  18. )
  19.  
  20. ;should we construct a wonder?
  21. (defrule
  22.     (goal wonder-attempt MAYBE)
  23.     (current-age == imperial-age)
  24.     (population > unit-max)
  25.     (wood-amount >= 500)
  26.     (gold-amount >= 500)
  27.     (stone-amount >= 500)
  28.     (cc-players-building-type-count every-ally wonder == 0)
  29.     (cc-players-building-type-count every-enemy wonder == 0)
  30.     (cc-players-building-type-count every-neutral wonder == 0)
  31.     (not (goal personality 1) )
  32. =>
  33.     (set-goal upgrade-conflict NOTICE)
  34.     (set-goal wonder-attempt POSSIBLE)
  35.     (chat-to-player-using-id every-ally 22410)    ;200
  36.     (disable-self)
  37. )
  38.  
  39. (defrule
  40.     (goal upgrade-conflict NOTICE)
  41.     (goal wonder-attempt POSSIBLE)
  42.     (can-build-with-escrow wonder)
  43. =>
  44.     (set-strategic-number sn-maximum-town-size 10)
  45.     (set-strategic-number sn-percent-civilian-builders 90)
  46.     (set-strategic-number sn-cap-civilian-builders 50)
  47.     (set-strategic-number sn-percent-civilian-gatherers 10)
  48.     (chat-local-to-self "Time to Wonder")
  49.     (set-goal wonder-attempt YES)
  50.     (disable-self)
  51. )
  52.  
  53. (defrule
  54.     (goal wonder-attempt YES)
  55.     (building-type-count farm > 0)
  56. =>
  57.     (delete-building farm)
  58. )
  59.  
  60. (defrule
  61.     (goal wonder-attempt YES)
  62.     (building-type-count farm == 0)
  63.     (can-build-with-escrow wonder)
  64. =>
  65.     (release-escrow wood)
  66.     (release-escrow gold)
  67.     (release-escrow stone)
  68.     (build wonder)
  69.     (set-goal upgrade-conflict NO)
  70.     (set-goal wonder-attempt NO)
  71.     (disable-self)
  72. )
  73.  
  74. (defrule
  75.     (building-type-count-total wonder > 0)
  76. =>
  77.     (set-strategic-number sn-maximum-town-size imperial-town-size)
  78.     (disable-self)
  79. )
  80.  
  81. (defrule
  82.     (building-type-count wonder > 0)
  83. =>
  84.     (set-strategic-number sn-percent-civilian-builders 15)
  85.     (set-strategic-number sn-cap-civilian-builders 8)
  86.     (set-strategic-number sn-percent-civilian-gatherers 85)
  87.     (disable-self)
  88. )
  89.  
  90. ;***********************************
  91. ;wonder-bashing
  92. ;delete wonder if someone else has beaten us to the punch
  93. (defrule
  94.     (building-type-count wonder == 0)
  95.     (building-type-count-total wonder > 0)
  96.     (cc-players-building-type-count any-ally wonder > 0)
  97.     (or
  98.         (enemy-captured-relics)
  99.         (or
  100.             (cc-players-building-type-count any-enemy wonder > 0)
  101.             (cc-players-building-type-count any-neutral wonder > 0)
  102.         )
  103.     )
  104. =>
  105.     (delete-building wonder)
  106.     (set-strategic-number sn-maximum-town-size imperial-town-size)
  107.     (set-strategic-number sn-percent-civilian-builders 15)
  108.     (set-strategic-number sn-cap-civilian-builders 8)
  109.     (set-strategic-number sn-percent-civilian-gatherers 85)
  110.     (set-goal wonder-attempt NO)
  111.     (set-goal upgrade-conflict NO)
  112.     (disable-self)
  113. )
  114.  
  115. #load-if-not-defined TEAMS-LOCKED
  116.  
  117. (defrule
  118.     (cc-players-building-type-count any-neutral wonder > 0)
  119. =>
  120.     (set-stance this-any-neutral enemy)
  121. )
  122.  
  123. #end-if
  124.  
  125. #end-if
  126.  
  127.  
  128.